home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 33 / Tiger_Disk_033_1996-12_Tiger-Crew-Disk_de_Side_C.d64 / (w) by p.diehm (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  191 lines
  1. 2 rem peter diehm presents
  2. 3 rem das leben des brain
  3. 4 printchr$(14)
  4. 5 poke 53280,0:poke 53281,0:print"[147]":poke 646,1
  5. 7 poke 650,255:poke 657,128
  6. 8 goto 20
  7. 10 printspc(30)"[154]-[212]aste-[146]"
  8. 12 get d$:if d$="" then 12
  9. 14 return
  10. 20 rem brain vorgeschichte
  11. 21 print"    [196]as [204]eben des [158] [194]rain [146] [208]art [201]-[214]
  12. 22 [153][166]1)"  (w) by (NULL)eter str$iehm ascebruar 1992
  13. 23 printspc(1)"       [154] [208]ublic [146] [196]omain [211]oft
  14. 24 [129]i[178]1[164]20:[153]"--";:[130]
  15. 25 [153][166]1)"                wait"
  16. 26 [153][166]1)" (NULL)orgeschichte: wait"
  17. 27 [153][166]1)"                wait"
  18. 30 [153][166]1)" spc(spc(spc(spc(spc(spc(   spc(spc(spc(spc(
  19. 32 printspc(1)" [166]        [166]
  20. 34 [153][166]1)" spc(        spc(
  21. 35 printspc(1)" [166][166][166][166][166][166]   [166][166][166][166] war einmal...
  22. 36 [153][166]1)" spc(           spc(
  23. 37 printspc(1)" [166]           [166]
  24. 38 [153][166]1)" spc(spc(spc(spc(spc(spc(   spc(spc(spc(spc(
  25. 39 printspc(1)"[196]as erste [193]dventure mit biblischem
  26. 40 [153][166]1)"left$intergrund, wenn er auch nur in der
  27. 41 printspc(1)"[214]orgeschichte vorhanden ist ! ":gosub10
  28. 42 print"[147]"
  29. 43 printspc(1)"[196]as [207]lympische [198]euer auf dem [207]lymp
  30. 45 [153][166]1)"ist erloschen, da man die chr$asrechnung
  31. 46 printspc(1)"nicht [158] bezahlt [146] hatte !
  32. 47 [153][166]1)"vals haette der (NULL)ntergang des (NULL)lympischen
  33. 48 printspc(1)"[199]eistes sein koennen ([211]chluchzzzz).
  34. 50 [153][166]1)"str$och der (NULL)etter nahte! (NULL)war wurde er
  35. 52 printspc(1)"unter [154] [218]wang [146] ausgesucht, da es
  36. 53 [153][166]1)"keinen ascreiwilligen gab, diese gewagte
  37. 54 printspc(1)"[193]ktion durchzufuehren.
  38. 56 [153][166]1)"str$a du, peekrain, dieser atnusgewaehlte wur=
  39. 57 printspc(1)"dest, steckte man dich in eine [218]eit=
  40. 58 [153][166]1)"maschine und wollte dich ins gute alte
  41. 60 printspc(1)"[199]riechenland zurueckversetzen."
  42. 62 printspc(1)"[196]och die [205]aschine machte einen  [198]ehler [146]
  43. 63 [153][166]1)"und so landetest du in mid$erusalem um...
  44. 64 printspc(1)"so ungefaehr 3 vor [195]hristus !"
  45. 65 gosub10
  46. 67 print"[147]"
  47. 68 printspc(1)"[202]erusalem war zu dieser [218]eit von den
  48. 69 [153][166]1)"(NULL)oemern besetzt. (NULL)it den (NULL)oemern meine
  49. 70 printspc(1)"ich nicht die [203]icker von [193][211] oder [204]azio
  50. 72 [153][166]1)"(NULL)om, nein sondern die (NULL)oemer aus den
  51. 73 printspc(1)"[193]sterix [194]uechern,welche im [212]eutoburger
  52. 74 [153][166]1)" (NULL)ald wait von unseren (NULL)orfahren be=
  53. 75 printspc(1)"siegt wurden.
  54. 76 [153][166]1)"str$er (NULL)tatthalter hiess (NULL)ilatus. str$ieser
  55. 78 printspc(1)"war zu dieser [218]eit recht nervoes, denn
  56. 79 [153][166]1)"nicht nur left$erodes sondern auch er
  57. 80 printspc(1)"hatte von einem angeblichen neuen [203]ing
  58. 81 [153][166]1)"von mid$erusalem gehoert. str$ieser war zwar
  59. 82 printspc(1)"nocht nicht geboren, aber [199]eruechte
  60. 83 [153][166]1)"gingen schon einher, wie das immer so
  61. 84 printspc(1)"ist. [196]as kennen wir ja aus der [204]inden=
  62. 85 [153][166]1)"strasse !":[141]10:[153]"load"
  63. 86 [153][166]1)"(NULL)o kam es, als du durch die chr$assen ge=
  64. 87 printspc(1)"laufen bist, das du von den [211]oldaten
  65. 88 [153][166]1)"des (NULL)ilatus gefangengenommen wurdest,
  66. 89 printspc(1)"da du fuer den neuen [158] [203]oenig [146] von
  67. 90 [153][166]1)"mid$erusalem gehalten wurdest.
  68. 91 printspc(1)"[196]as kam, weil du eine [204]os [193]ngeles [203]ings
  69. 92 [153][166]1)"mid$acke und ein  right$'m the peekoss
  70. 93 printspc(1)"[212]-[211]hirt am [153] [204]eib [146] getragen hast.
  71. 94 [153][166]1)"str$u wurdest in den print# (NULL)erker wait ge=
  72. 96 printspc(1)"steckt. [206]un musst du sehen, wie es
  73. 98 [153][166]1)"weitergeht !
  74. 99 gosub10
  75. 100 print"[147]"
  76. 102 fori=1to20:print"--";:next
  77. 103 printspc(1)"       [196]as [158] [204]eben [146] des [194]rain !
  78. 104 [129]i[178]1[164]20:[153]"--";:[130]
  79. 105 [153][166]1)"atnrt: print (NULL)ext wait atndventure.
  80. 106 printspc(1)"[208]rogrammierer: [208]eter [196]iehm !
  81. 107 [153][166]1)"(NULL)ann: (w) im ascebruar 1992
  82. 110 printspc(1)"[215]ie: in [154] [194]asic [146] !
  83. 111 [153][166]1)"(NULL)ozu: fuer alle (NULL)ublic str$omain ascreaks !
  84. 112 printspc(1)"[215]eshalb: [194]egeistert vom [198]ilm !
  85. 113 [153][166]1)"right$n atnnlehnung an den gleichnamigen
  86. 114 printspc(1)"[198]ilm von [205]onty [208]ythons !"
  87. 115 printspc(1)"[193]llerdings mit [194]rain, nicht mit [194]rian.
  88. 116 [153][166]1)"  atn (NULL)str$(NULL)str$ def (NULL)oftware wait (NULL)roduktion 1992
  89. 118 gosub10
  90. 120 print"[147]"
  91. 122 printspc(1)"[201]ch moechte hiermit die [194]ewerbung
  92. 123 [153][166]1)"(NULL)imbach's zur atnussrichtung der left$erbst
  93. 124 printspc(1)"[207]lympiade 1984 unterstuetzen:
  94. 125 [153][166]1)"valinige sys (NULL)orzuege: wait
  95. 126 printspc(1)" - [197]in [200]allen [194]ad !
  96. 128 [153][166]1)" - (NULL)eichlich (NULL)iesen.
  97. 130 printspc(1)" - 4 [198]ischteiche.
  98. 132 [153][166]1)" - einen roten (NULL)arktplatz.
  99. 133 printspc(1)" - [206]irgends gibts das 64'er !
  100. 134 [153][166]1)"atnls peekotschafter wurden bist jetzt
  101. 136 printspc(1)"[211]chosch [211]chmitt, [211]chosch [211]chmidt,
  102. 137 [153][166]1)"(NULL)chosch (NULL)chmid, und (NULL)chosch (NULL)chmiedt
  103. 139 printspc(1)"ernannt !":gosub10
  104. 140 print"[147]":goto300
  105. 142 print"[147]":fori=1to20:print"[153]**";:next:gosub420
  106. 143 printspc(1)"
  107. 145 [153][166]1)"str$as (NULL)eben des peekrain !
  108. 148 printspc(1)"         - 1 - [204]oad [199]ame
  109. 149 [153][166]1)"         - 2 - atnnleitung (NULL)onitor
  110. 150 printspc(1)"         - 3 - [193]nleitung [196]rucker !
  111. 153 [153][166]1)"(w) by (NULL)str$(NULL)str$ (NULL)oft 1992":pd[178]1
  112. 154 [161] d$:[139] d$[178]"" [167] 154
  113. 155 [139] d$[178]"1" [167] a$[178]"brain p.i load":[137] 200
  114. 156 [139] d$[178]"2" [167] a$[178]"anleitung i":[137] 200
  115. 157 [139] d$[178]"3" [167] a$[178]"anleitung ii":[137] 200
  116. 158 [137] 154
  117. 159 [137] 154
  118. 200 [153]"load"
  119. 202 [153]"(NULL)oading "a$"...stop"
  120. 203 [151] 828,0
  121. 205 [153]"load"[199](34);""[170]a$[170]"";[199](34); ",8
  122. 206 print"[144] run
  123. 207 [151] 631,13:[151] 632,13:[151] 198,2:[153]"";:[128]
  124. 210 [143] peter diehm
  125. 211 [143] waldstr. 58
  126. 212 [143] 6149 rimbach 1
  127. 300 [143] nachladen
  128. 301 [153]"load":[129]i[178]1[164]20:[153]"*def*";:[130]
  129. 302 [153][166]0)"valinen auf str$iskette installierten (NULL)piel=
  130. 304 printspc(0)"stand nachladen oder einen [211]pielstand
  131. 305 [153][166]0)"aus einem (NULL)eil des atndventure nachladen.
  132. 307 printspc(1)"      - 1 - [211]pielstand [199]ame [196]isk
  133. 308 [153][166]1)"      - 2 - (NULL)pielstand (NULL)art ...
  134. 309 printspc(1)"      - 3 - weiter
  135. 310 [153][166]0)"(NULL)erwirrend ! right$ch weiss, darum nochmal:
  136. 311 printspc(0)"[215]enn du die 1 drueckst wird ein [211]piel=
  137. 312 [153][166]0)"stand, der automatisch installiert
  138. 313 printspc(0)"wurde, nachgeladen ! [207]der 2 fuer einen
  139. 314 [153][166]0)"(NULL)pielstand denn du selber unter einem
  140. 315 printspc(0)"[198]ile-[206]amen abgespeichert hast !
  141. 317 [153][166]1)"                   (w) by (NULL)eter str$iehm
  142. 320 get d$:if d$="" then 320
  143. 322 on val(d$) goto 350,370,142
  144. 325 goto 320
  145. 350 print"[207].[203].
  146. 352 [159]1,8,4,"brain score,s,r"
  147. 353 [132]1,f,b,c,o,e,d,n,pd,k,s,l,m,w,z,a,la,lb,lc,ld,le,lf,da,db,dc,dd,dm
  148. 354 [132]1,ga,gb,gc,cj,ge
  149. 355 [160]1:[141]420
  150. 356 [139] pd[178]1 [167] a$[178]"brain p.i load":[137] 200
  151. 357 [139] pd[178]2 [167] a$[178]"brain p.ii load":[137]200
  152. 358 [139] pd[178]3 [167] a$[178]"brain p.ii load":[137] 200
  153. 359 [139] pd[178]4 [167] a$[178]"brain p.iii load":[137] 200
  154. 360 [139] pd[178]5 [167] a$[178]"brain p.iii load":[137] 200
  155. 362 [137] 142
  156. 370 [143] part load
  157. 371 [153]"load"
  158. 372 [153]"load":[129]i[178]1[164]20:[153]"*cont*";:[130]
  159. 373 [153][166]1)"atnus welchen (NULL)art (NULL). laden ?
  160. 374 printspc(1)"       6 = [158] [218]urueck [146] !
  161. 375 [133] " cont -=> wait (1-5) ";ps
  162. 376 [139] ps[178]1 [167] 390
  163. 377 [139] ps[178]2 [176] ps[178]3 [167] 400
  164. 378 [139] ps[178]4 [176] ps[178]5 [167] 410
  165. 380 [137] 300
  166. 390 [133] "  ascile wait (NULL)ame ";c$
  167. 392 [159]1,8,4,"b1"[170]c$[170]",s,r"
  168. 394 [152]1,a,b,f,c,o,e,d,n,s,l,m,da,db,dc,dd,s,w,dm,
  169. 396 [160]1:pd[178]1:[137] 356
  170. 400 [133] "  ascile wait (NULL)ame ";c$
  171. 402 [159]1,8,4,"b2"[170]c$[170]",s,r"
  172. 403 [152]1,a,b,c,d,e,f,o,l,m,w,z,n,s,ga,gb,cj,gc
  173. 405 [160]1:pd[178]2
  174. 406 [139] a[177]14 [167] pd[178]3
  175. 407 [137] 356
  176. 410 [133] "  ascile wait (NULL)ame ";c$
  177. 412 [159]1,8,4,"b3"[170]c$[170]",s,r"
  178. 413 [152]1,a,b,c,d,e,f,o,l,m,w,z,n,s,la,lb,lc,ld,le,lf
  179. 415 [160]1:pd[178]4
  180. 417 [139] a[177]15 [167] pd[178]5
  181. 418 [137] 356
  182. 420 [143] score save
  183. 422 r$[178][199](13)
  184. 423 [159]2,8,15,"s:brain score":[160]2
  185. 425 [159]1,8,4,"brain score,s,w"
  186. 426 [152]1,f;r$;b;r$;c;r$;o;r$;e;r$;d;r$;n;r$;pd;r$;k;r$;s;r$;l;r$;m
  187. 427 [152]1,w;r$;z;r$;a;r$;la;r$;lb;r$;lc;r$;ld;r$;le;r$;lf;r$;da;r$;db
  188. 428 [152]1,dc;r$;dd;r$;dm;r$;ga;r$;gb;r$;gc;r$;cj;r$;ge
  189. 429 [160]1:[142]
  190. 430 [143] a pdpd produktion 1992
  191.